(cua--pre-command-handler): Corrected

handling of delete-selection properties.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 5f8fc8533dac143befc3c5ecfe89a14fd71c13e0..9018e0e95d382d7d4df59d270ede7fa5d67a89b6 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -977,12 +977,12 @@ Extra commands should be added to `cua-user-movement-commands'")
                             'cua-copy-region))
                          ((eq ds 'supersede)
                           (if cua--rectangle
-                              'cua-delete-rectangle ;; replace?
-                            'cua-replace-region))
+                              'cua-delete-rectangle
+                            'cua-delete-region))
                          (t
                           (if cua--rectangle
-                              'cua-delete-rectangle
-                            'cua-delete-region)))))
+                              'cua-delete-rectangle ;; replace?
+                            'cua-replace-region)))))
                (if nc
                    (setq this-original-command this-command
                          this-command nc)))))